home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / archive / userbox / publicdomain / superviewel.lha / SuperViewEL / SuperViewLibrary / Install_SVLib < prev    next >
Text File  |  1996-06-18  |  9KB  |  323 lines
  1. ; $VER: Install_SVLib V13.2 (26.5.96)
  2. ; © 1993-96 by Andreas R. Kleinert.
  3. ; This is the Installer Script for superview.library V13+
  4.  
  5. (set MC68x (database "cpu"))
  6. (set @app-name "SuperView-Library")
  7.  
  8. ; **************************************************************************
  9. ; Create/Update basic configuration
  10.  
  11. (makedir "ENV:SuperView-Library")
  12. (makedir "ENVARC:SuperView-Library")
  13.  
  14. (set selectsvdriver (askchoice
  15.                       (prompt "What's your basic configuration ?")
  16.                       (help @askchoice-help)
  17.                       (choices "ECS, no GfxCard" "AGA" "AGA (CD-32)" "Picasso II" "RetinaZ2/Z3" "Merlin-II" "OpalVision" "CyberGraphics GfxCard" "EGS7 GfxCard" "Other GfxCard (ECS/AGA)" "(do not preset anything)")
  18.                       (default 1)
  19.                     )
  20. )
  21.  
  22. (if (= selectsvdriver 0) (set env_source "docs/SampleConfigs/env_ECS")           )
  23. (if (= selectsvdriver 1) (set env_source "docs/SampleConfigs/env_AGA")           )
  24. (if (= selectsvdriver 2) (set env_source "docs/SampleConfigs/env_AGA_CD32")      )
  25. (if (= selectsvdriver 3) (set env_source "docs/SampleConfigs/env_PicassoII")     )
  26. (if (= selectsvdriver 4) (set env_source "docs/SampleConfigs/env_Retina")        )
  27. (if (= selectsvdriver 5) (set env_source "docs/SampleConfigs/env_Merlin")        )
  28. (if (= selectsvdriver 6) (set env_source "docs/SampleConfigs/env_OpalVision")    )
  29. (if (= selectsvdriver 7) (set env_source "docs/SampleConfigs/env_CyberGraphics") )
  30. (if (= selectsvdriver 8) (set env_source "docs/SampleConfigs/env_EGS7")          )
  31. (if (= selectsvdriver 9) (set env_source "docs/SampleConfigs/env_GfxCards")      )
  32.  
  33. (if (<= selectsvdriver 9)
  34.   (
  35.     (copyfiles
  36.       (prompt "Copying selected configuration to ENV: ...")
  37.       (help @copyfiles-help)
  38.       (source env_source)
  39.       (dest "ENV:")
  40.       (all)
  41.     )
  42.     (copyfiles
  43.       (prompt "Copying basic GfxCard configuration to ENVARC: ...")
  44.       (help @copyfiles-help)
  45.       (source env_source)
  46.       (dest "ENVARC:")
  47.       (all)
  48.     )
  49.   )
  50. )
  51.  
  52. (copyfiles
  53.   (prompt "Installing CPInfo files to ENVARC: ...")
  54.   (help @copyfiles-help)
  55.   (source "env")
  56.   (dest "ENVARC:")
  57.   (all)
  58. )
  59.  
  60. ; **************************************************************************
  61. ; Install main libraries
  62.  
  63. (copylib
  64.   (prompt "Installing superview.library to LIBS: ...")
  65.   (help @copylib-help)
  66.   (source "libs/superview.library")
  67.   (set svlibdir
  68.               (askdir
  69.                      (prompt "Library Path")
  70.                      (help @askdir-help)
  71.                      (newpath)
  72.                      (default "LIBS:")
  73.               )
  74.   )
  75.   (dest svlibdir)
  76. )
  77.  
  78. (set @default-dest svlibdir)
  79.  
  80. (copylib
  81.   (prompt "Installing superviewsupport.library to LIBS: ...")
  82.   (help @copylib-help)
  83.   (source "libs/superviewsupport.library")
  84.   (dest svlibdir)
  85. )
  86.  
  87. ; **************************************************************************
  88. ; Ask for LZW
  89.  
  90. (set lzwquest (askchoice
  91.                 (prompt (cat "\nIs LZW usage license-free by your countries' law ?\n\n"
  92.                              "Note:\n"
  93.                              "If not, LZW dependent routines will be\n"
  94.                              "deactivated now. If you select Yes\n"
  95.                              "nevertheless, you hereby agree to pay\n"
  96.                              "any possible license fees for commercial\n"
  97.                              "or other usage by yourself. If you do not\n"
  98.                              "agree with that, select >Abort Install<\n")
  99.                 )
  100.                 (help @askchoice-help)
  101.                 (choices "Yes (e.g. Germany)" "No (e.g. USA)")
  102.                 (default 0)
  103.               )
  104. )
  105.  
  106. (if (= lzwquest 0)
  107.   (
  108.    (textfile
  109.        (dest "ENV:SuperView-Library/LEGAL.controlpad")
  110.        (append "LZW=ENABLED\n")
  111.    )
  112.    (copyfiles
  113.        (source "ENV:SuperView-Library/LEGAL.controlpad")
  114.        (dest "ENVARC:SuperView-Library")
  115.    )
  116.   )
  117. )
  118.  
  119. (if (= lzwquest 1)
  120.   (
  121.    (textfile
  122.        (dest "ENV:SuperView-Library/LEGAL.controlpad")
  123.        (append "LZW=DISABLED\n")
  124.    )
  125.    (copyfiles
  126.        (source "ENV:SuperView-Library/LEGAL.controlpad")
  127.        (dest "ENVARC:SuperView-Library")
  128.    )
  129.   )
  130. )
  131.  
  132. ; **************************************************************************
  133. ; Ask for Ghostscript
  134.  
  135. (set gsquest (askchoice
  136.                 (prompt (cat "\nDo you already have Ghostscript installed ?\n\n"
  137.                              "(When answering with 'Yes', you have to supply\n"
  138.                              " the programs path and name here.)\n")
  139.                 )
  140.                 (help @askchoice-help)
  141.                 (choices "Yes" "No")
  142.                 (default 0)
  143.               )
  144. )
  145.  
  146. (if (= gsquest 0)
  147.   (
  148.     (set gspath (askfile
  149.                   (prompt "Path and name of Ghostscript executable")
  150.                   (help @askfile-help)
  151.                   (default "gs000")
  152.                 )
  153.     )
  154.     (set gspathopt (cat "GS_PATH=" gspath "\n"))
  155.     (textfile
  156.       (dest "ENV:SuperView-Library/Ghostscript.controlpad")
  157.       (append gspathopt)
  158.     )
  159.     (copyfiles
  160.       (source "ENV:SuperView-Library/Ghostscript.controlpad")
  161.       (dest "ENVARC:SuperView-Library")
  162.     )
  163.   )
  164. )
  165.  
  166.  
  167. ; **************************************************************************
  168. ; Install catalogs
  169.  
  170. (makedir "SYS:locale")
  171. (makedir "SYS:locale/catalogs")
  172.  
  173. (copyfiles
  174.   (prompt "Installing OS 2.1+ catalog files ...")
  175.   (help @copyfiles-help)
  176.   (source "locale/catalogs")
  177.   (set svcatdir
  178.               (askdir
  179.                      (prompt "Catalog Path")
  180.                      (help @askdir-help)
  181.                      (newpath)
  182.                      (default "SYS:locale/Catalogs")
  183.               )
  184.   )
  185.   (dest svcatdir)
  186.   (all)
  187. )
  188.  
  189. ; **************************************************************************
  190. ; Install library modules
  191.  
  192. (set svobjectdir   (tackon svlibdir "svobjects"))
  193. (set svdriverdir   (tackon svlibdir "svdrivers"))
  194. (set svoperatordir (tackon svlibdir "svoperators"))
  195.  
  196. (makedir svobjectdir)
  197. (makedir svdriverdir)
  198. (makedir svoperatordir)
  199.  
  200. (copyfiles
  201.   (prompt "Installing svobjects to LIBS:svobjects ...")
  202.   (help @copyfiles-help)
  203.   (source "libs/svobjects")
  204.   (dest (tackon svlibdir "svobjects"))
  205.   (pattern "#?")
  206.   (confirm)
  207.   (files)
  208. )
  209.  
  210. (copyfiles
  211.   (prompt "Installing svdrivers to LIBS:svdrivers ...")
  212.   (help @copyfiles-help)
  213.   (source "libs/svdrivers")
  214.   (dest (tackon svlibdir "svdrivers"))
  215.   (pattern "#?")
  216.   (confirm)
  217.   (files)
  218. )
  219.  
  220. (copyfiles
  221.   (prompt "Installing svoperators to LIBS:svoperators ...")
  222.   (help @copyfiles-help)
  223.   (source "libs/svoperators")
  224.   (dest (tackon svlibdir "svoperators"))
  225.   (pattern "#?")
  226.   (confirm)
  227.   (files)
  228. )
  229.  
  230. (if (>= MC68x 68020)
  231.   (
  232.     (copyfiles
  233.       (prompt "Installing special 68020+ versions of some sv-libs");
  234.       (help @copyfiles-help)
  235.       (source "libs/68030")
  236.       (dest svlibdir)
  237.       (confirm)
  238.       (all)
  239.     )
  240.   )
  241. )
  242.  
  243. ; **************************************************************************
  244. ; Modify User-Startup
  245.  
  246. (startup "SuperView-Library"
  247.   (prompt "Now modifying your S:User-Startup for VMem-Support...")
  248.   (help @startup-help)
  249.   (set vmemdir
  250.               (askdir
  251.                      (prompt "Virtual Memory Path")
  252.                      (help @askdir-help)
  253.                      (newpath)
  254.                      (default "T:")
  255.               )
  256.   )
  257.  
  258.   (command "Assign VMEM: "vmemdir"\n")
  259. )
  260.  
  261. ; **************************************************************************
  262. ; Install SVPrefs
  263.  
  264. (copyfiles
  265.   (prompt "Copy SVPrefs to SYS:Prefs ?")
  266.   (help @copyfiles-help)
  267.   (source "Prefs")
  268.   (dest "SYS:Prefs")
  269.   (all)
  270.   (confirm)
  271. )
  272.  
  273. ; **************************************************************************
  274. ; Ask for Packersupport
  275.  
  276. (set ask_ps (askbool (prompt "Install PackerSupport right now ?") (help @askbool-help) ) )
  277.  
  278. (if (= ask_ps TRUE)
  279.   (
  280.     (copyfiles
  281.       (prompt "Installing Unpack.svobject to LIBS:svobjects ...")
  282.       (help @copyfiles-help)
  283.       (source "PackerSupport/Unpack-SVObject/libs/svobjects")
  284.       (dest (tackon svlibdir "svobjects"))
  285.       (pattern "#?")
  286.       (files)
  287.     )
  288.   )
  289. )
  290.  
  291. ; **************************************************************************
  292. ; Ask for SQOperators
  293.  
  294. (set ask_sq (askbool (prompt "Install SQ-Operators right now ?") (help @askbool-help) ) )
  295.  
  296. (if (= ask_sq TRUE)
  297.   (
  298.     (copyfiles
  299.       (prompt "Installing CPInfo files to ENVARC: ...")
  300.       (help @copyfiles-help)
  301.       (source "SQ-Operators/envarc")
  302.       (dest "ENVARC:")
  303.       (all)
  304.     )
  305.     (copyfiles
  306.       (prompt "Installing svoperators to LIBS:svoperators ...")
  307.       (help @copyfiles-help)
  308.       (source "SQ-Operators/libs/svoperators")
  309.       (dest (tackon svlibdir "svoperators"))
  310.       (pattern "#?")
  311.       (confirm)
  312.       (files)
  313.     )
  314.   )
  315. )
  316.  
  317. ; **************************************************************************
  318. ; EOF ;-)
  319.  
  320. (exit "SuperView-Library has been installed now.\nIf this was an Update, you should\nreboot your computer now.")
  321.  
  322.  
  323.